Inference at * 
Iof proof for Lemma implies transitivity:


  P, Q, R:. (P  Q)  (Q  R)  {P  R} 

latex

 by ((((Unfold `guard` 0) 
CollapseTHEN ((Auto_aux (first_nat 1:n) ((first_nat 1:n),(first_nat 3:n
C)) (first_tok :t) inil_term)))) 
CollapseTHEN (HypBackchain)) 

latex

C.

Definitions

t  T, {T}, P  Q, , x:A. B(x)